(precompute-menubar-bindings): Don't precompute menus if not using x.

diff --git a/lisp/startup.el b/lisp/startup.el
index 01a5101599f1166cc5bd0e11469e02ca6c80f0e2..2bfb5863f2798f8b0cc6766cf31cdca22a2bec27 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -185,7 +185,7 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
 
 ;; Precompute the keyboard equivalents in the menu bar items.
 (defun precompute-menubar-bindings ()
-  (if (fboundp 'x-popup-menu)
+  (if (eq window-system 'x)
       (let ((submap (lookup-key global-map [menu-bar])))
        (while submap
          (and (consp (car submap))